# -*- mode: snippet -*-
# name: windowsFonts change default from grDevices
# key: windowsFonts.change.font
# key: font.windowsFonts.change
# contributor: Shuguang Sun
# --
${1:oldWFonts} <- windowsFonts()\$${2:$$(yas-choose-value '("sans" "serif" "mono"))}
`yas-selected-text`$0
windowsFonts(sans = $1)